/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_04 / scrnaccess / listing3

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 6c 69 73 74 69 6e 67 33 |.... . >|listing3|
|00000010| 0d 00 14 1e 20 f4 20 73 | 70 72 69 74 65 20 70 6c |.... . s|prite pl|
|00000020| 6f 74 74 69 6e 67 20 72 | 6f 75 74 69 6e 65 0d 00 |otting r|outine..|
|00000030| 1e 05 20 0d 00 28 0e 20 | f2 61 73 73 65 6d 62 6c |.. ..(. |.assembl|
|00000040| 65 0d 00 32 0f 20 f2 61 | 73 73 65 6d 62 6c 65 32 |e..2. .a|ssemble2|
|00000050| 0d 00 3c 09 20 eb 20 31 | 33 0d 00 46 1a 20 c8 99 |..<. . 1|3..F. ..|
|00000060| 20 22 4f 53 5f 52 65 6d | 6f 76 65 43 75 72 73 6f | "OS_Rem|oveCurso|
|00000070| 72 73 22 0d 00 50 05 20 | 0d 00 5a 06 20 f5 0d 00 |rs"..P. |..Z. ...|
|00000080| 64 35 20 f1 8a 30 2c 33 | 30 29 3b 22 53 70 72 69 |d5 ..0,3|0);"Spri|
|00000090| 74 65 20 70 6c 6f 74 74 | 65 64 20 62 79 20 64 69 |te plott|ed by di|
|000000a0| 72 65 63 74 20 73 63 72 | 65 65 6e 20 61 63 63 65 |rect scr|een acce|
|000000b0| 73 73 22 0d 00 6e 4b 20 | 46 25 3d 73 64 61 74 61 |ss"..nK |F%=sdata|
|000000c0| 20 3a 20 47 25 3d 26 31 | 46 44 39 45 30 30 20 3a | : G%=&1|FD9E00 :|
|000000d0| 20 f4 20 72 35 3d 70 6f | 69 6e 74 20 74 6f 20 73 | . r5=po|int to s|
|000000e0| 70 72 69 74 65 20 64 61 | 74 61 20 20 72 36 3d 73 |prite da|ta  r6=s|
|000000f0| 70 72 69 74 65 20 70 6f | 73 69 74 69 6f 6e 0d 00 |prite po|sition..|
|00000100| 78 0b 20 d6 20 63 6f 64 | 65 0d 00 82 0b 20 c8 96 |x. . cod|e.... ..|
|00000110| 20 3a 20 db 0d 00 8c 35 | 20 f1 8a 30 2c 33 30 29 | : ....5| ..0,30)|
|00000120| 3b 22 53 70 72 69 74 65 | 20 70 6c 6f 74 74 65 64 |;"Sprite| plotted|
|00000130| 20 62 79 20 52 49 53 43 | 20 4f 53 20 72 6f 75 74 | by RISC| OS rout|
|00000140| 69 6e 65 73 20 20 20 20 | 22 0d 00 96 0c 20 d6 20 |ines    |".... . |
|00000150| 63 6f 64 65 32 0d 00 a0 | 0b 20 c8 96 20 3a 20 db |code2...|. .. : .|
|00000160| 0d 00 aa 08 20 fd 20 a3 | 0d 00 b4 05 20 0d 00 be |.... . .|.... ...|
|00000170| 05 20 0d 00 c8 10 20 dd | 20 f2 61 73 73 65 6d 62 |. .... .| .assemb|
|00000180| 6c 65 0d 00 d2 11 20 de | 20 73 64 61 74 61 20 31 |le.... .| sdata 1|
|00000190| 30 30 30 0d 00 dc 39 20 | c8 99 20 22 4f 53 5f 46 |000...9 |.. "OS_F|
|000001a0| 69 6c 65 22 2c 26 46 46 | 2c 22 73 64 61 74 61 22 |ile",&FF|,"sdata"|
|000001b0| 2c 73 64 61 74 61 20 20 | 3a 20 f4 20 6c 6f 61 64 |,sdata  |: . load|
|000001c0| 20 73 70 72 69 74 65 20 | 64 61 74 61 0d 00 e6 10 | sprite |data....|
|000001d0| 20 de 20 63 6f 64 65 20 | 31 30 32 34 0d 00 f0 15 | . code |1024....|
|000001e0| 20 e3 20 70 61 73 73 3d | 30 20 b8 20 32 20 88 20 | . pass=|0 . 2 . |
|000001f0| 32 0d 00 fa 0c 20 50 25 | 3d 63 6f 64 65 0d 01 04 |2.... P%|=code...|
|00000200| 05 20 0d 01 0e 0f 20 5b | 20 4f 50 54 20 70 61 73 |. .... [| OPT pas|
|00000210| 73 0d 01 18 15 20 3b 20 | 72 30 3d 73 70 72 69 74 |s.... ; |r0=sprit|
|00000220| 65 20 64 61 74 61 0d 01 | 22 1d 20 3b 20 72 31 3d |e data..|". ; r1=|
|00000230| 73 70 72 69 74 65 20 64 | 61 74 61 20 70 6f 69 6e |sprite d|ata poin|
|00000240| 74 65 72 0d 01 2c 1f 20 | 3b 20 72 32 3d 73 63 72 |ter..,. |; r2=scr|
|00000250| 65 65 6e 20 61 64 72 65 | 73 73 20 70 6f 69 6e 74 |een adre|ss point|
|00000260| 65 72 0d 01 36 22 20 3b | 20 72 33 3d 68 6f 72 69 |er..6" ;| r3=hori|
|00000270| 7a 6f 6e 74 61 6c 20 70 | 69 78 65 6c 20 63 6f 75 |zontal p|ixel cou|
|00000280| 6e 74 65 72 0d 01 40 20 | 20 3b 20 72 34 3d 76 65 |nter..@ | ; r4=ve|
|00000290| 72 74 69 63 61 6c 20 6c | 69 6e 65 73 20 63 6f 75 |rtical l|ines cou|
|000002a0| 6e 74 65 72 0d 01 4a 1e | 20 3b 20 72 35 3d 73 74 |nter..J.| ; r5=st|
|000002b0| 61 72 74 20 6f 66 20 73 | 70 72 69 74 65 20 64 61 |art of s|prite da|
|000002c0| 74 61 0d 01 54 23 20 3b | 20 72 36 3d 73 63 72 65 |ta..T# ;| r6=scre|
|000002d0| 65 6e 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 73 |en posit|ion of s|
|000002e0| 70 72 69 74 65 0d 01 5e | 05 20 0d 01 68 0a 20 2e |prite..^|. ..h. .|
|000002f0| 68 65 72 65 0d 01 72 4c | 20 4d 4f 56 20 52 31 2c |here..rL| MOV R1,|
|00000300| 52 35 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R5      |        |
|00000310| 20 20 20 20 20 20 20 20 | 3b 20 72 65 73 74 6f 72 |        |; restor|
|00000320| 65 20 72 31 20 74 6f 20 | 70 6f 69 6e 74 20 74 6f |e r1 to |point to|
|00000330| 20 73 74 61 72 74 20 6f | 66 20 73 70 72 69 74 65 | start o|f sprite|
|00000340| 0d 01 7c 46 20 4d 4f 56 | 20 52 32 2c 52 36 20 20 |..|F MOV| R2,R6  |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 20 20 3b 20 6d 61 | 6b 65 20 72 32 20 70 6f |    ; ma|ke r2 po|
|00000370| 69 6e 74 20 74 6f 20 73 | 70 72 69 74 65 27 73 20 |int to s|prite's |
|00000380| 61 64 72 65 73 73 0d 01 | 86 3a 20 4d 4f 56 20 52 |adress..|.: MOV R|
|00000390| 33 2c 23 30 20 3a 20 4d | 4f 56 20 52 34 2c 23 30 |3,#0 : M|OV R4,#0|
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 6e 69 74 |        |  ; init|
|000003b0| 20 63 6f 75 6e 74 20 72 | 65 67 69 73 74 61 72 73 | count r|egistars|
|000003c0| 0d 01 90 0a 20 2e 6c 6f | 6f 70 0d 01 9a 46 20 4c |.... .lo|op...F L|
|000003d0| 44 52 42 20 52 30 2c 5b | 52 31 5d 2c 23 31 20 20 |DRB R0,[|R1],#1  |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|000003f0| 6c 6f 61 64 20 69 6e 20 | 6e 65 78 74 20 62 79 74 |load in |next byt|
|00000400| 65 20 6f 66 20 73 70 72 | 69 74 65 20 64 61 74 61 |e of spr|ite data|
|00000410| 0d 01 a4 40 20 53 54 52 | 42 20 52 30 2c 5b 52 32 |...@ STR|B R0,[R2|
|00000420| 5d 2c 23 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |],#1    |        |
|00000430| 20 20 20 20 3b 20 70 6c | 6f 74 20 70 69 78 65 6c |    ; pl|ot pixel|
|00000440| 20 61 74 20 61 64 72 65 | 73 73 20 69 6e 20 72 32 | at adre|ss in r2|
|00000450| 0d 01 ae 3f 20 41 44 44 | 20 52 33 2c 52 33 2c 23 |...? ADD| R3,R3,#|
|00000460| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00000470| 20 20 20 20 3b 20 69 6e | 63 72 65 6d 65 6e 74 20 |    ; in|crement |
|00000480| 63 6f 75 6e 74 31 20 72 | 65 67 69 73 74 61 72 0d |count1 r|egistar.|
|00000490| 01 b8 0f 20 43 4d 50 20 | 52 33 2c 23 32 34 0d 01 |... CMP |R3,#24..|
|000004a0| c2 42 20 42 43 43 20 6c | 6f 6f 70 20 20 20 20 20 |.B BCC l|oop     |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004c0| 20 20 3b 20 67 6f 20 62 | 61 63 6b 20 69 66 20 6c |  ; go b|ack if l|
|000004d0| 69 6e 65 20 6e 6f 74 20 | 66 69 6e 69 73 68 65 64 |ine not |finished|
|000004e0| 0d 01 cc 34 20 4d 4f 56 | 20 52 33 2c 23 30 20 20 |...4 MOV| R3,#0  |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 3b 20 72 65 | 2d 69 6e 69 74 20 63 6f |    ; re|-init co|
|00000510| 75 6e 74 31 0d 01 d6 3f | 20 41 44 44 20 52 34 2c |unt1...?| ADD R4,|
|00000520| 52 34 2c 23 31 20 20 20 | 20 20 20 20 20 20 20 20 |R4,#1   |        |
|00000530| 20 20 20 20 20 20 20 20 | 3b 20 69 6e 63 72 65 6d |        |; increm|
|00000540| 65 6e 74 20 63 6f 75 6e | 74 32 20 72 65 67 69 73 |ent coun|t2 regis|
|00000550| 74 61 72 0d 01 e0 39 20 | 41 44 44 20 52 32 2c 52 |tar...9 |ADD R2,R|
|00000560| 32 2c 23 32 39 36 20 20 | 20 20 20 20 20 20 20 20 |2,#296  |        |
|00000570| 20 20 20 20 20 20 20 3b | 20 6d 6f 76 65 20 6f 6e |       ;| move on|
|00000580| 74 6f 20 6e 65 78 74 20 | 6c 69 6e 65 0d 01 ea 0f |to next |line....|
|00000590| 20 43 4d 50 20 52 34 2c | 23 32 34 0d 01 f4 46 20 | CMP R4,|#24...F |
|000005a0| 42 43 43 20 6c 6f 6f 70 | 20 20 20 20 20 20 20 20 |BCC loop|        |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000005c0| 20 67 6f 20 62 61 63 6b | 20 69 66 20 61 6c 6c 20 | go back| if all |
|000005d0| 6c 69 6e 65 73 20 6e 6f | 74 20 70 6c 6f 74 74 65 |lines no|t plotte|
|000005e0| 64 0d 01 fe 05 20 0d 02 | 08 45 20 41 44 44 20 52 |d.... ..|.E ADD R|
|000005f0| 36 2c 52 36 2c 23 31 20 | 20 20 20 20 20 20 20 20 |6,R6,#1 |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 3b 20 6d 6f 76 65 20 |        | ; move |
|00000610| 73 70 72 69 74 65 20 31 | 20 70 69 78 65 6c 20 74 |sprite 1| pixel t|
|00000620| 6f 20 74 68 65 20 72 69 | 67 68 74 0d 02 12 32 20 |o the ri|ght...2 |
|00000630| 4d 4f 56 20 52 30 2c 23 | 26 37 41 20 3a 20 53 57 |MOV R0,#|&7A : SW|
|00000640| 49 20 22 4f 53 5f 42 79 | 74 65 22 20 20 20 3b 20 |I "OS_By|te"   ; |
|00000650| 73 63 61 6e 20 6b 65 79 | 62 6f 61 72 64 0d 02 1c |scan key|board...|
|00000660| 45 20 43 4d 50 20 52 31 | 2c 23 31 30 36 20 3a 20 |E CMP R1|,#106 : |
|00000670| ec 51 20 52 31 35 2c 52 | 31 34 20 20 20 3b 20 72 |.Q R15,R|14   ; r|
|00000680| 65 74 75 72 6e 20 74 6f | 20 42 41 53 49 43 20 69 |eturn to| BASIC i|
|00000690| 66 20 6b 65 79 70 61 64 | 20 30 20 70 72 65 73 73 |f keypad| 0 press|
|000006a0| 65 64 0d 02 26 0d 20 42 | 41 4c 20 68 65 72 65 0d |ed..&. B|AL here.|
|000006b0| 02 30 05 20 0d 02 3a 4d | 20 3b 20 74 6f 20 61 6c |.0. ..:M| ; to al|
|000006c0| 74 65 72 20 73 69 7a 65 | 20 6f 66 20 73 70 72 69 |ter size| of spri|
|000006d0| 74 65 20 70 6c 6f 74 74 | 65 64 20 61 64 6a 75 73 |te plott|ed adjus|
|000006e0| 74 20 74 68 65 20 69 6d | 6d 65 64 69 61 74 65 20 |t the im|mediate |
|000006f0| 63 6f 6e 73 74 61 6e 74 | 73 20 75 73 65 64 20 69 |constant|s used i|
|00000700| 6e 0d 02 44 4d 20 3b 20 | 74 68 65 20 43 4d 50 20 |n..DM ; |the CMP |
|00000710| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 20 61 6e 64 |instruct|ions and|
|00000720| 20 74 68 65 20 23 32 39 | 36 20 69 6e 20 6c 69 6e | the #29|6 in lin|
|00000730| 65 20 34 37 30 20 74 6f | 20 23 28 33 32 30 20 2d |e 470 to| #(320 -|
|00000740| 20 6e 65 77 20 69 6d 6d | 65 64 69 61 74 65 0d 02 | new imm|ediate..|
|00000750| 4e 1c 20 3b 20 63 6f 6e | 73 74 61 6e 74 20 69 6e |N. ; con|stant in|
|00000760| 20 6c 69 6e 65 20 34 33 | 30 29 0d 02 58 05 20 0d | line 43|0)..X. .|
|00000770| 02 62 06 20 5d 0d 02 6c | 06 20 ed 0d 02 76 06 20 |.b. ]..l|. ...v. |
|00000780| e1 0d 02 80 05 20 0d 02 | 8a 05 20 0d 02 94 11 20 |..... ..|.. .... |
|00000790| dd 20 f2 61 73 73 65 6d | 62 6c 65 32 0d 02 9e 16 |. .assem|ble2....|
|000007a0| 20 2a 53 4c 4f 41 44 20 | 73 70 72 69 74 65 66 69 | *SLOAD |spritefi|
|000007b0| 6c 65 0d 02 a8 10 20 de | 20 63 6f 64 65 32 20 35 |le.... .| code2 5|
|000007c0| 31 32 0d 02 b2 15 20 e3 | 20 70 61 73 73 3d 30 20 |12.... .| pass=0 |
|000007d0| b8 20 32 20 88 20 32 0d | 02 bc 0d 20 50 25 3d 63 |. 2 . 2.|... P%=c|
|000007e0| 6f 64 65 32 0d 02 c6 05 | 20 0d 02 d0 0f 20 5b 20 |ode2....| .... [ |
|000007f0| 4f 50 54 20 70 61 73 73 | 0d 02 da 48 20 4d 4f 56 |OPT pass|...H MOV|
|00000800| 20 52 33 2c 23 30 20 3a | 20 4d 4f 56 20 52 34 2c | R3,#0 :| MOV R4,|
|00000810| 23 39 30 30 20 3a 20 4d | 4f 56 20 52 35 2c 23 30 |#900 : M|OV R5,#0|
|00000820| 20 20 3b 20 73 65 74 20 | 75 70 20 72 65 67 69 73 |  ; set |up regis|
|00000830| 74 61 72 73 20 66 6f 72 | 20 4f 53 20 63 61 6c 6c |tars for| OS call|
|00000840| 0d 02 e4 0a 20 2e 6c 6f | 6f 70 0d 02 ee 48 20 4d |.... .lo|op...H M|
|00000850| 4f 56 20 52 30 2c 23 33 | 34 20 3a 20 41 44 52 20 |OV R0,#3|4 : ADR |
|00000860| 52 32 2c 73 70 72 69 74 | 65 20 20 20 20 20 20 20 |R2,sprit|e       |
|00000870| 20 20 20 20 3b 20 73 65 | 74 20 75 70 20 72 65 67 |    ; se|t up reg|
|00000880| 69 73 74 61 72 73 20 66 | 6f 72 20 4f 53 20 63 61 |istars f|or OS ca|
|00000890| 6c 6c 0d 02 f8 44 20 41 | 44 44 20 52 33 2c 52 33 |ll...D A|DD R3,R3|
|000008a0| 2c 23 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,#1     |        |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 6d 6f |        |    ; mo|
|000008c0| 76 65 20 73 70 72 69 74 | 65 20 74 6f 20 74 68 65 |ve sprit|e to the|
|000008d0| 20 72 69 67 68 74 0d 03 | 02 43 20 43 4d 50 20 52 | right..|.C CMP R|
|000008e0| 33 2c 23 31 32 38 30 20 | 20 20 20 20 20 20 20 20 |3,#1280 |        |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000900| 3b 20 63 68 65 63 6b 20 | 69 66 20 61 74 20 65 6e |; check |if at en|
|00000910| 64 20 6f 66 20 6c 69 6e | 65 0d 03 0c 40 20 4d 56 |d of lin|e...@ MV|
|00000920| 4e 45 51 20 52 33 2c 23 | 39 38 20 3a 20 53 55 42 |NEQ R3,#|98 : SUB|
|00000930| 45 51 20 52 34 2c 52 34 | 2c 23 31 20 20 20 20 20 |EQ R4,R4|,#1     |
|00000940| 20 20 20 3b 20 69 66 20 | 73 6f 20 61 6c 74 65 72 |   ; if |so alter|
|00000950| 20 70 6f 73 69 74 69 6f | 6e 0d 03 16 42 20 53 57 | positio|n...B SW|
|00000960| 49 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 20 |I "OS_Sp|riteOp" |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000980| 20 20 20 3b 20 63 61 6c | 6c 20 4f 53 20 73 70 72 |   ; cal|l OS spr|
|00000990| 69 74 65 20 72 6f 75 74 | 69 6e 65 0d 03 20 05 20 |ite rout|ine.. . |
|000009a0| 0d 03 2a 32 20 4d 4f 56 | 20 52 30 2c 23 26 37 41 |..*2 MOV| R0,#&7A|
|000009b0| 20 3a 20 53 57 49 20 22 | 4f 53 5f 42 79 74 65 22 | : SWI "|OS_Byte"|
|000009c0| 20 20 20 3b 20 73 63 61 | 6e 20 6b 65 79 62 6f 61 |   ; sca|n keyboa|
|000009d0| 72 64 0d 03 34 45 20 43 | 4d 50 20 52 31 2c 23 31 |rd..4E C|MP R1,#1|
|000009e0| 30 37 20 3a 20 ec 51 20 | 52 31 35 2c 52 31 34 20 |07 : .Q |R15,R14 |
|000009f0| 20 20 3b 20 72 65 74 75 | 72 6e 20 74 6f 20 42 41 |  ; retu|rn to BA|
|00000a00| 53 49 43 20 69 66 20 6b | 65 79 70 61 64 20 31 20 |SIC if k|eypad 1 |
|00000a10| 70 72 65 73 73 65 64 0d | 03 3e 0d 20 42 41 4c 20 |pressed.|.>. BAL |
|00000a20| 6c 6f 6f 70 0d 03 48 05 | 20 0d 03 52 0c 20 2e 73 |loop..H.| ..R. .s|
|00000a30| 70 72 69 74 65 0d 03 5c | 12 20 65 71 75 73 20 22 |prite..\|. equs "|
|00000a40| 73 70 72 69 74 65 22 0d | 03 66 0b 20 65 71 75 62 |sprite".|.f. equb|
|00000a50| 20 30 0d 03 70 0a 20 41 | 4c 49 47 4e 0d 03 7a 05 | 0..p. A|LIGN..z.|
|00000a60| 20 0d 03 84 06 20 5d 0d | 03 8e 06 20 ed 0d 03 98 | .... ].|... ....|
|00000a70| 06 20 e1 0d 03 a2 05 20 | 0d ff                   |. ..... |..      |
+--------+-------------------------+-------------------------+--------+--------+